home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Low Disk Space 2.xpl < prev    next >
Text File  |  2002-03-05  |  7KB  |  249 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="9"
  3. "OSVERSION"="00101"
  4. "COUNT"="1"
  5. "UIPATH"="System\File System\Windows 9x/ME Options\Misc"
  6. "NAME"="Low Disk Space"
  7. "VERSION"="2.10"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Low Disk Space 2"
  10. "DESCRIPTION 1"="You can disable Low Disk Space Notification & Auto running Disk Cleanup on one or more of your drives, by putting a checkmark by one or more of the drives on your system. This is especially useful on systems with consistently low disk space."
  11. "DESCRIPTION 2"="For further information see MSKB article: http://support.microsoft.com/support/kb/articles/q188/0/74.asp."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Thanks to Axcel216 [axcel216@aol.com] for the settings."
  16. "COMMENT 2"="Thanks to Neil Turner [totalxs@hotmail.com] for turning this into a checked listbox plug-in."
  17. "COMMENT 3"="   if (i-8192)>=0 then Call SetUIElementEx(14,true), i=i-8292, end if, should be (8292/8192)"
  18. "COMMENT 4"="   if (i-8192)>=0 then Call SetUIElementEx(14,true), i=i-8192, end if"
  19. "COMMENT 5"="sP should be only sP="HKLM\System\CurrentControlSet\Control\FileSystem\"
  20. "COMMENT 6"="Above fixes done by Tomas [tomas@default.cz] - thanks for that!"
  21.  
  22. 'sP="HKLM\System\CurrentControlSet\Control\FileSystem\DisableLowDiskSpaceBroadcast"
  23. sP="HKLM\System\CurrentControlSet\Control\FileSystem\"
  24. sV="DisableLowDiskSpaceBroadcast"
  25. i=0
  26. Sub Plugin_Initialize 
  27.     Call SetUIElement(1,"Disable on drive A:\")
  28.     Call SetUIElement(2,"Disable on drive B:\")
  29.     Call SetUIElement(3,"Disable on drive C:\")
  30.     Call SetUIElement(4,"Disable on drive D:\")
  31.     Call SetUIElement(5,"Disable on drive E:\")
  32.     Call SetUIElement(6,"Disable on drive F:\")
  33.     Call SetUIElement(7,"Disable on drive G:\")
  34.     Call SetUIElement(8,"Disable on drive H:\")
  35.     Call SetUIElement(9,"Disable on drive I:\")
  36.     Call SetUIElement(10,"Disable on drive J:\")
  37.     Call SetUIElement(11,"Disable on drive K:\")
  38.     Call SetUIElement(12,"Disable on drive L:\")
  39.     Call SetUIElement(13,"Disable on drive M:\")
  40.     Call SetUIElement(14,"Disable on drive N:\")
  41.     Call SetUIElement(15,"Disable on drive O:\")
  42.     Call SetUIElement(16,"Disable on drive P:\")
  43.     Call SetUIElement(17,"Disable on drive Q:\")
  44.     Call SetUIElement(18,"Disable on drive R:\")
  45.     Call SetUIElement(19,"Disable on drive S:\")
  46.     Call SetUIElement(20,"Disable on drive T:\")
  47.     Call SetUIElement(21,"Disable on drive U:\")
  48.     Call SetUIElement(22,"Disable on drive V:\")
  49.     Call SetUIElement(23,"Disable on drive W:\")
  50.     Call SetUIElement(24,"Disable on drive X:\")
  51.     Call SetUIElement(25,"Disable on drive Y:\")
  52.     Call SetUIElement(26,"Disable on drive Z:\")
  53.  
  54.  
  55.     i=RegReadValue(sP&sV)
  56.     if IsEmpty(i)=true then
  57.        'No drives hidden - don't read anything (TeXHeX - 'hidden' has 2 d's :)
  58.     else
  59.        'not empty - check if wrong datatype
  60.        if len(i)>0 and IsNumeric(i)=true then
  61.           if i=0 then
  62.              'no drives hidden
  63.           else
  64.              'drives hidden -> read it
  65.              Call SetUI()
  66.           end if   
  67.        else
  68.           'wrong datatype!!! ignore it!          
  69.        end if 
  70.     end if
  71. End Sub
  72.  
  73.  
  74. Sub SetUI
  75.    'Arg! We got to calculate!!!
  76.  
  77.    if (i-33554432)>=0 then
  78.       Call SetUIElementEx(26,true)
  79.       i=i-33554432
  80.    end if
  81.  
  82.    if (i-16777216)>=0 then
  83.       Call SetUIElementEx(25,true)
  84.       i=i-16777216
  85.    end if
  86.  
  87.    if (i-8388608)>=0 then
  88.       Call SetUIElementEx(24,true)
  89.       i=i-8388608
  90.    end if
  91.  
  92.    if (i-4194304)>=0 then
  93.       Call SetUIElementEx(23,true)
  94.       i=i-4194304
  95.    end if
  96.  
  97.    if (i-2097152)>=0 then
  98.       Call SetUIElementEx(22,true)
  99.       i=i-2097152
  100.    end if
  101.  
  102.    if (i-1048576)>=0 then
  103.       Call SetUIElementEx(21,true)
  104.       i=i-1048576
  105.    end if
  106.  
  107.    if (i-524288)>=0 then
  108.       Call SetUIElementEx(20,true)
  109.       i=i-524288
  110.    end if
  111.  
  112.    if (i-262144)>=0 then
  113.       Call SetUIElementEx(19,true)
  114.       i=i-262144
  115.    end if
  116.  
  117.    if (i-131072)>=0 then
  118.       Call SetUIElementEx(18,true)
  119.       i=i-131072
  120.    end if
  121.  
  122.    if (i-65536)>=0 then
  123.       Call SetUIElementEx(17,true)
  124.       i=i-65536
  125.    end if
  126.  
  127.    if (i-32768)>=0 then
  128.       Call SetUIElementEx(16,true)
  129.       i=i-32768
  130.    end if
  131.  
  132.    if (i-16384)>=0 then
  133.       Call SetUIElementEx(15,true)
  134.       i=i-16384
  135.    end if
  136.  
  137.    if (i-8192)>=0 then
  138.       Call SetUIElementEx(14,true)
  139.       i=i-8192
  140.    end if
  141.  
  142.    if (i-4096)>=0 then
  143.       Call SetUIElementEx(13,true)
  144.       i=i-4096
  145.    end if
  146.  
  147.    if (i-2048)>=0 then
  148.       Call SetUIElementEx(12,true)
  149.       i=i-2048
  150.    end if
  151.  
  152.    if (i-1024)>=0 then
  153.       Call SetUIElementEx(11,true)
  154.       i=i-1024
  155.    end if
  156.  
  157.    if (i-512)>=0 then
  158.       Call SetUIElementEx(10,true)
  159.       i=i-512
  160.    end if
  161.  
  162.    if (i-256)>=0 then
  163.       Call SetUIElementEx(9,true)
  164.       i=i-256
  165.    end if
  166.  
  167.    if (i-128)>=0 then
  168.       Call SetUIElementEx(8,true)
  169.       i=i-128
  170.    end if
  171.  
  172.    if (i-64)>=0 then
  173.       Call SetUIElementEx(7,true)
  174.       i=i-64
  175.    end if
  176.  
  177.    if (i-32)>=0 then
  178.       Call SetUIElementEx(6,true)
  179.       i=i-32
  180.    end if
  181.  
  182.    if (i-16)>=0 then
  183.       Call SetUIElementEx(5,true)
  184.       i=i-16
  185.    end if
  186.  
  187.    if (i-8)>=0 then
  188.       Call SetUIElementEx(4,true)
  189.       i=i-8
  190.    end if
  191.  
  192.    if (i-4)>=0 then
  193.       Call SetUIElementEx(3,true)
  194.       i=i-4
  195.    end if
  196.  
  197.    if (i-2)>=0 then
  198.       Call SetUIElementEx(2,true)
  199.       i=i-2
  200.    end if
  201.  
  202.    if (i-1)>=0 then
  203.       Call SetUIElementEx(1,true)
  204.    end if
  205.  
  206. End Sub
  207.  
  208.  
  209. Sub Plugin_CheckData(ElementIndex)
  210. End Sub
  211.  
  212. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  213.  i=0
  214.  
  215.  if GetUIElementEx(1)=true then i=i+1
  216.  if GetUIElementEx(2)=true then i=i+2
  217.  if GetUIElementEx(3)=true then i=i+4
  218.  if GetUIElementEx(4)=true then i=i+8
  219.  if GetUIElementEx(5)=true then i=i+16
  220.  if GetUIElementEx(6)=true then i=i+32
  221.  if GetUIElementEx(7)=true then i=i+64
  222.  if GetUIElementEx(8)=true then i=i+128
  223.  if GetUIElementEx(9)=true then i=i+256
  224. if GetUIElementEx(10)=true then i=i+512
  225. if GetUIElementEx(11)=true then i=i+1024
  226. if GetUIElementEx(12)=true then i=i+2048
  227. if GetUIElementEx(13)=true then i=i+4096
  228. if GetUIElementEx(14)=true then i=i+8192
  229. if GetUIElementEx(15)=true then i=i+16384
  230. if GetUIElementEx(16)=true then i=i+32768
  231. if GetUIElementEx(17)=true then i=i+65536
  232. if GetUIElementEx(18)=true then i=i+131072
  233. if GetUIElementEx(19)=true then i=i+262144
  234. if GetUIElementEx(20)=true then i=i+524288
  235. if GetUIElementEx(21)=true then i=i+1048576
  236. if GetUIElementEx(22)=true then i=i+2097152
  237. if GetUIElementEx(23)=true then i=i+4194304
  238. if GetUIElementEx(24)=true then i=i+8388608
  239. if GetUIElementEx(25)=true then i=i+16777216
  240. if GetUIElementEx(26)=true then i=i+33554432
  241.  
  242.  
  243.  Call RegWriteValue(sP & sV,i,2)
  244.  
  245. End Sub
  246.  
  247. Sub Plugin_Terminate 
  248. End Sub
  249.